home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / graphics / aim_xtra.arc / PRAK2.AIM < prev    next >
Text File  |  1988-04-06  |  806b  |  33 lines
  1. * read image in 
  2. readf A:\PRAK2.IM,A 
  3. * set color display in color mode 
  4. don,3 
  5. * set timer on 
  6. ton
  7. * clear all bitplanes of image B
  8. clear,B  
  9. * threshold image
  10. thresh A,B,1,230 
  11. * invert image to get white objects on black background. 
  12. invert 1,B 
  13. * make some copies. 
  14. bcopy 1,2,B,B 
  15. bcopy 1,3,B,B 
  16. bcopy 1,4,B,B 
  17. * erode and propagate to remove small objects 
  18. erosion 5,1,6,0,B 
  19. propag 500,1,2,8,0,B 
  20. * exor to remove them, what remains are the big objects; the capacitors. 
  21. exor 1,4,4,B 
  22. * make a copy 
  23. bcopy 4,2,B,B 
  24. * take the skeleton with endpixel condition. 
  25. skelet 100,2,0,B 
  26. * select the branchpoints in the skeletons 
  27. vertices 2,0,B 
  28. * Propagate to obtain components with branchpoints; the transistors. 
  29. propag 500,2,4,8,0,B 
  30. * exor to remove them 
  31. exor 2,4,4,B
  32.  
  33.